﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
%>
	<card title="商品管理"><p align="left">
<%
	dim rs,sql,page,id


    		Page = Request("page")      '当前页数
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1
    		id = Request("id")    
    		If id = "" Then id = 1
   		If Not IsNumeric(id) Then id = 1
    		id = CLng(id)
    		If id < 1 Then id = 1
	Set Rs = Server.CreateObject("Adodb.Recordset")
        Sql = "SELECT * from qingtian_shangpin where id="&id&" order by id desc"
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then
			%>
<img src="<%=rs("tupic")%>" alt="<%=qingtian.utf8(rs("name"))%>" noselect = "true"/><br/>名称:<%=qingtian.utf8(rs("name"))%><br/>所属商城/类别:<%=qingtian.shangpd(rs("bip"))%><br/>商品分类:<%=qingtian.shangp(rs("bitt"))%><br/>商品简介:<%=qingtian.utf8(rs("ton"))%><br/>商品价格:<%=rs("paym")%><br/>商品功能:
<% if rs("zmeili")<>0 then %>
魅力:+<%=rs("zmeili")%>.
<% end if %>
<% if rs("ztili")<>0 then %>
体力:+<%=rs("ztili")%>.
<% end if %>
<% if rs("zjifen")<>0 then %>
积分:+<%=rs("zjifen")%>.
<% end if %>
<% if rs("zbit")<>0 then %>
<%=qingtian.bi%>:+<%=rs("zbit")%>.
<% end if %>
<% if rs("zvip")<>0 then %>
vip:+<%=rs("zvip")%>个月.
<% end if %>
<% if rs("xunzan")<>"" then %>
增加勋章1个.
<% end if %>
<% if rs("touxian")<>"" then %>
增加头像1个.
<% end if %>
<br/>商品已售:<%=rs("recont")%>件<br/>是否推荐:
<%if rs("tuijian")=1 then
Response.Write("是")
else
Response.Write("否")
end if
%><br/>入库时间:<%=qingtian.utf8(rs("time"))%><br/>[<a href="editshangpin.asp?act=<%=qingtian.shangpdd(rs("bip"))%>&amp;page=<%=page%>&amp;id=<%=id%>&amp;sid=<%=sid%>">修改</a>|<a href="delshangpin.asp?page=<%=page%>&amp;id=<%=id%>&amp;sid=<%=sid%>">删除</a>]<br/>
<%
                else
Response.Write("暂无管理<br/>")

		end if
		Rs.close			
	set rs=nothing
Response.Write("<a href='shangpin.asp?Page=" & Page & "&amp;sid=" & sid & "'>返回上级</a><br/>")
   		Response.Write("<a href='index.asp?sid=" & sid & "'>管理首页</a><br/>")
end Function
%>
